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APPENDIX 1 



void sw ( ) 



#define iw = 12; 



/* instruction 
width */ 



#define mw = 3: 
#defme CONST = 0 
#defme LOAD - 1 
#defme GLOBAL = 2 
#define PUTCHAR, = 15 /* 



/* memory width */ 
/* push constant */ 
/* push variable */ 
/* push address */ 



#defme GETCHAR = 16 /* 



put a character along the 
standard output channel*/ 
get a character from the 
standard input channel */ 



rom program [] 

#include "prog.o" ): ram stack[l«mw] with dualport = 1 ]; 
ram memory[l«mw] unsigned iw PC, ir, tos; 
unsigned mw sp; 

do par it = programme]: PC = PC + 1 ; 

tos = stack[sp~ 1 ] ; /* save top of 



switch (ir) 
case 

CONST par 

stack[sp] = programme]; 
sP = sP+1: 
PC = Pc+l: 
] 

break; 
case LOAD 

stack[sp-l] = memory [tos<-mw]; 
break; 

case STOP break; default : /* unknown opcode */ 

while (1) delay; 

] while (ir != STOP); 



stack to avoid 
two ram accesses 
in one cycle 

*/ 
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] 

Register transfer level description of simple processor 



wssr 



ft" 
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APPENDIX 2 



void main() { char hwswchan; 
char unsigned 8 port: 

par { 

parallel_„port(port); 
SyncGenQ: 

initialiseRam(port) ; 
par { 

display(hwswchan): sw(hwswchan); 

yi} 

} 

RTL description of main 
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APPENDIX 3 



CALCULATION PROCESS 

/* 

* Channel communicating object positions 
*/ chap unsigned 17 position; 

/* 

* Channel communicating segment information 

*/ 

chanout unsigned 9 segment; 

/* 

* Channel communicating button information 

*/ 

chanin unsigned 2 buttons; 

/* 

* Overall par 
*/ par 

/* 

* Mass motion 

*/ 

/* 

* Positions of each mass, 9+8 fixed point 

*/ 

unsigned 17 pO, pi, p2, p3, p4, p5, p6, p7; 

/* 

* Velocity of each mass, 9+8 fixed point 

*/ 

int 17 vl, v2, v3, v4, v5, v6, v7; ' 

/* 

* Accelerations of each mass, 9+8 fixed point 

*/ 

int 17 al, a2, a3, a4, a5, a6, a7; 

/* 

* Sutton status 

*/ 

unsigned 2 button status; 

/* 

* Initial setup of positions 

*/ 
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p0 = 65536; 
pi = 65536; 
p2 = 65536; 
p3 = 65536; 
p4 = 65536; 
P 5 = 65536; 
p6 = 65536 
p7 =65536 



/* 

* Forever 

*/ 

while (1) 

{ 

/* 

* Send successive positions down position channel 

*/ 

send(position, pO); 
send(position, pi); 
send(position, pi); 
send(position> p2); 
send(position, p2); 
send(position, p3); 
send (position, p3); 
send(position, p4); 
send(position ? p4); 
send(position, p5); 
send(position, p5); 
send(position, p6); 
send(position, p6); 
send(position, p7); 

/* 

* Update positions according to velocities 

*/ 

pi +_ (unsigned 17)vl; 
p2 +_ (unsigned 17)v2; 
p3 +_ (unsigned 17)v3; 
p4 (unsigned 17)v4; 
p5 +_ (unsigned 17)v5; 
p6 +_ (unsigned 17)v6; 
p7 +_ (unsigned 17)v7; 

/* 
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10 



30 



* Update velocities according to accelerations 

*/ 

vl += al - (vl » 6); 
v2 += a2 - (v2 » 6) ; 
v3 += a3 - (v3 » 6); 
v4 += a4 - (v4 » 6); 
v5 += a5 - (v5' » 6); 
v6 += a6 - (v6 » 6); 
v7 += a7 - (v7 » 6); 



/* 

* Set accelerations according to relative positions 

*/ 

al = (int 17)(((p2 » 8) - (pi » 8)) + (( P 0 » 8) - (pi » 8))); 
1 5 a2 = (int 1 7)(((p3 » 8) - (p2 » 8)) + ((pi » 8) - (p2 » 8))): 

S a3 = (int 1 7)!!(p4 » 8) - (p3 » 8)) + ((p2 » 8) - !p3 » 8))); 

S a4 = (int 1 7)(((p5 » 8) - (p4 » 8)) + ((p3 » 8) - (p4 » e> >; 

ni a5 = (int 17)((!p6 » 8) - (p5 » 8)) + ((p4 » 8) - (p5 » 8))); 

S a6 = (int 1 7)(((p7 » 8) - (p6 » 8)) + ((p5 » 8) - (p6 » e > ) ; 

ij 20 a7 = (int 1 7)((p6 » 8) - (p7 » 8)); 

sir* 

m i* 

* * Get button information 

I* */ 

nt 

25 receive(buttons, button status); 



/* 

* Fix top point according to buttons 
*/ if (button status & 1) 



pO = 65536 - 16384; 
) 

else if (button status & 2) 
( 

35 p0 = 65536 + 16384; 

else 

p0 = 65536; 

40 } 
) 

/* 

* nine drawing 

*/ 

45 ( 

/* 
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* Positions of previous and next massess positions 

*/ 

unsigned 17 prev.pos, next pos, curr pos; 

/* 

* Which line of interpolation 

*/ 

unsigned char line; 

/* 

* Forever 

*/ 

while (1) 
( 

/* 

* Receive previous mass position 

*/ 

receive (position, prev posy; 
curr pos = prev pos; 

/* 

* Read next mass position 

*/ 

receive(position, next posy; 

/* 

* Do 64 lines of interpolation 

*/ 

for (line = 0; line != 64; line++) 
( 

/* 

* Send start position of segment 

*/ 

send(segment, curr pos » 8); /**width adjustments along 

channel of width 9 so takes bottom 9 
bits*/ 

/* 

* Move by appropriate amount (1/64 total change) 

*/ 

curr pos +_ (unsigned 17)(((int 17)next pos - 

(int 17)prevpos) »6); 

/* 

* Send end position of segment 

*/ 

send(segment 5 curr pos » 8): 

) 

) 

) 
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DISPLAY PROCESS 

/* standard includes */ 

#include "hammond.h" 
#include "syncgen.h" 
#include "stdlib.h" 
#include "parallelh" 

/* 

* Segment information channel */ chap segment; 

/* 

* Button information channel */ 
chan buttons: 

/ 

* Include dash generated stuff*/ 
#include "handelc.h" 

/* 

* Main program */ 
void main() ( 

/ 

* Scan positions 
*/ unsigned sx, sy; 

/ 

* Vdeo output register 

*/ 

unsigned 1 video; 

/* 

* Video output bus 

*/ 

interface bus out() video out(Visible(sx, sy) ? 
(video ? (unsigned 12)Oxfff : 0) 0) with video spec; 

#ifhdef SIMULATE 

/* 

* Left button input bus 

*/ 

interface bus in (unsigned 1) button_left() 
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with button white spec; 

/* 

* Right button input bus 

*/ 

interface bus in(unsigned 1) button right() 
with button black spec; 
#endif 

/* 
* 

Overall par 

*/par { 

/* 

* VGA sync generator 

*/ 

SyncGen(sx, sy, hsync pin, vsync pin); 

/* 
* 

Dash generated hardware 

*/ 

hardware(); 

/* 

* Run-length decoder 

*/ 

{ 

/* 

* Segment start and end positions 

*/ 

unsigned start, end; 

/* 

* Forever 

*/ 

while (1) 
{ 

while (sy !=448) 

/* 

* Read segment information 

*/ 

segment ? start; 
segment ? end; 

/* 

* Get in the right order 

*/ 

if (start > end) 
{ 
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par 

{ 



end = start; 
start = end;. 

) 



/* 

* Make at least 1 pixel visible 

*/ 

if (start = end) 

end++; 

/* 

* Wait 

*/ 

while (sx != 0) 
delay; 

/* 

* Draw a scanline worth 

*/ 

while (sx != 512) 

if ((sx <- 9) >= start && (sx <- 9) < end) 

video = 1 ; 
else 
video = 0; 

) 

/* 

* Communicate button status 

*/ 

#ifdef SIMULATE 

buttons ! 1; 

#else 

buttons ! button left.in @ button rightin; 

#endif 

/* 

* Wait 

*/ 

while (sy != 0) 
delay; 

) 
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